﻿Public Class DsimuladorCta

    'Public Shared Function SeleccionarTodo(ByVal descEmpresa As String, ByVal pSimuladorCta As EsimuladorCta) As List(Of EsimuladorCta)
    '    Dim simuladorCtas As List(Of EsimuladorCta) = Nothing

    '    Using cn As New SqlConnection(ConfigurationManager.ConnectionStrings(descEmpresa).ConnectionString)
    '        Using cmd As New SqlCommand("usp_simuladorCtas_sel", cn)
    '            cmd.CommandType = CommandType.StoredProcedure
    '            cmd.Parameters.Add("@idProforma", SqlDbType.Int).Value = pSimuladorCta.idProforma
    '            Try
    '                cn.Open()
    '                Using dr As SqlDataReader = cmd.ExecuteReader(CommandBehavior.SingleResult Or CommandBehavior.CloseConnection)
    '                    If dr.HasRows Then
    '                        simuladorCtas = New List(Of EsimuladorCta)
    '                        Dim simuladorCta As EsimuladorCta = Nothing
    '                        Do While dr.Read
    '                            simuladorCta = New EsimuladorCta( _
    '                                dr.GetInt32(dr.GetOrdinal("idSumulador")), _
    '                                dr.GetInt32(dr.GetOrdinal("idProforma")), _
    '                                dr.GetDouble(dr.GetOrdinal("precioInmueble")), _
    '                                dr.GetDouble(dr.GetOrdinal("ctaInicial")), _
    '                                dr.GetDouble(dr.GetOrdinal("saldoFinanciar")), _
    '                                dr.GetInt32(dr.GetOrdinal("idEntidadFin")), _
    '                                dr.GetString(dr.GetOrdinal("descEntidadFin")), _
    '                                dr.GetInt32(dr.GetOrdinal("plazoAño")), _
    '                                dr.GetDouble(dr.GetOrdinal("tem")), _
    '                                dr.GetDouble(dr.GetOrdinal("valorCta")), _
    '                                dr.GetBoolean(dr.GetOrdinal("miVivienda")), _
    '                                dr.GetInt32(dr.GetOrdinal("plazoAñoBono")), _
    '                                dr.GetDouble(dr.GetOrdinal("montoBono")), _
    '                                dr.GetDouble(dr.GetOrdinal("tia")), _
    '                                dr.GetDouble(dr.GetOrdinal("valorCtaBono")), _
    '                                dr.GetDouble(dr.GetOrdinal("ctaNeta")), _
    '                                dr.GetInt32(dr.GetOrdinal("idUsuario")))
    '                            simuladorCtas.Add(simuladorCta)
    '                        Loop
    '                        dr.Close()
    '                    End If
    '                End Using
    '            Catch ex As Exception
    '                Throw
    '            End Try
    '        End Using
    '    End Using

    '    Return simuladorCtas
    'End Function
    Public Shared Function Añadir(ByVal descEmpresa As String, ByVal pSimuladorCta As EsimuladorCta) As Boolean
        Dim resultado As Boolean = False

        Using cn As New SqlConnection(ConfigurationManager.ConnectionStrings(descEmpresa).ConnectionString)
            Using cmd As New SqlCommand("usp_simuladorCtas_add", cn)
                cmd.CommandType = CommandType.StoredProcedure
                cmd.Parameters.Add("@idProyecto", SqlDbType.Int).Value = pSimuladorCta.idProyecto
                cmd.Parameters.Add("@idEtapa", SqlDbType.Int).Value = pSimuladorCta.idEtapa
                cmd.Parameters.Add("@idProforma", SqlDbType.Int).Value = pSimuladorCta.idProforma
                'cmd.Parameters.Add("@idSimularCta", SqlDbType.Int).Value = pSimuladorCta.idSimularCta
                cmd.Parameters.Add("@precioInmueble", SqlDbType.Decimal, 10, 2).Value = pSimuladorCta.precioInmueble
                cmd.Parameters.Add("@ctaInicial", SqlDbType.Decimal, 10, 2).Value = pSimuladorCta.ctaInicial
                cmd.Parameters.Add("@saldoFinanciar", SqlDbType.Decimal, 10, 2).Value = pSimuladorCta.saldoFinanciar
                cmd.Parameters.Add("@idEntidadFin", SqlDbType.Int).Value = pSimuladorCta.entidadFinanciar.idEntidadFin
                cmd.Parameters.Add("@plazoAño", SqlDbType.Int).Value = pSimuladorCta.plazoAño
                cmd.Parameters.Add("@tasaInteresAnual", SqlDbType.Decimal, 10, 2).Value = pSimuladorCta.tasaInteresAnual
                cmd.Parameters.Add("@tasaInteresMensual", SqlDbType.Decimal, 10, 2).Value = pSimuladorCta.tasaInteresMensual
                cmd.Parameters.Add("@valorCta", SqlDbType.Decimal, 10, 2).Value = pSimuladorCta.valorCta
                cmd.Parameters.Add("@miVivienda", SqlDbType.Int).Value = pSimuladorCta.miVivienda
                cmd.Parameters.Add("@plazoAñoBono", SqlDbType.Int).Value = pSimuladorCta.plazoAñoBono
                cmd.Parameters.Add("@montoBono", SqlDbType.Decimal, 10, 2).Value = pSimuladorCta.montoBono
                cmd.Parameters.Add("@tasaInteresActiva", SqlDbType.Decimal, 2).Value = pSimuladorCta.tasaInteresActiva
                cmd.Parameters.Add("@valorCtaBono", SqlDbType.Decimal, 10, 2).Value = pSimuladorCta.valorCtaBono
                cmd.Parameters.Add("@ctaNeta", SqlDbType.Decimal, 10, 2).Value = pSimuladorCta.ctaNeta
                cmd.Parameters.Add("@idUsuario", SqlDbType.Int).Value = pSimuladorCta.idUsuario
                Try
                    cn.Open()
                    cmd.ExecuteNonQuery()
                    resultado = True
                Catch ex As Exception
                    Throw
                End Try
            End Using
        End Using

        Return resultado
    End Function
    Public Shared Function AñadirVersus(ByVal descEmpresa As String, ByVal pSimuladorCta As EsimuladorCta) As Boolean
        Dim resultado As Boolean = False

        Using cn As New SqlConnection(ConfigurationManager.ConnectionStrings(descEmpresa).ConnectionString)
            Using cmd As New SqlCommand("usp_simuladorCtas_add", cn)
                cmd.CommandType = CommandType.StoredProcedure
                cmd.Parameters.Add("@idEmpresa", SqlDbType.Int).Value = pSimuladorCta.idEmpresa
                cmd.Parameters.Add("@idProyecto", SqlDbType.Int).Value = pSimuladorCta.idProyecto
                cmd.Parameters.Add("@idEtapa", SqlDbType.Int).Value = pSimuladorCta.idEtapa
                cmd.Parameters.Add("@idProforma", SqlDbType.Int).Value = pSimuladorCta.idProforma
                'cmd.Parameters.Add("@idSimularCta", SqlDbType.Int).Value = pSimuladorCta.idSimularCta
                cmd.Parameters.Add("@precioInmueble", SqlDbType.Decimal, 10, 2).Value = pSimuladorCta.precioInmueble
                cmd.Parameters.Add("@ctaInicial", SqlDbType.Decimal, 10, 2).Value = pSimuladorCta.ctaInicial
                cmd.Parameters.Add("@saldoFinanciar", SqlDbType.Decimal, 10, 2).Value = pSimuladorCta.saldoFinanciar
                cmd.Parameters.Add("@idEntidadFin", SqlDbType.Int).Value = pSimuladorCta.entidadFinanciar.idEntidadFin
                cmd.Parameters.Add("@plazoAño", SqlDbType.Int).Value = pSimuladorCta.plazoAño
                cmd.Parameters.Add("@tasaInteresAnual", SqlDbType.Decimal, 10, 2).Value = pSimuladorCta.tasaInteresAnual
                cmd.Parameters.Add("@tasaInteresMensual", SqlDbType.Decimal, 10, 2).Value = pSimuladorCta.tasaInteresMensual
                cmd.Parameters.Add("@valorCta", SqlDbType.Decimal, 10, 2).Value = pSimuladorCta.valorCta
                cmd.Parameters.Add("@miVivienda", SqlDbType.Int).Value = pSimuladorCta.miVivienda
                cmd.Parameters.Add("@plazoAñoBono", SqlDbType.Int).Value = pSimuladorCta.plazoAñoBono
                cmd.Parameters.Add("@montoBono", SqlDbType.Decimal, 10, 2).Value = pSimuladorCta.montoBono
                cmd.Parameters.Add("@tasaInteresActiva", SqlDbType.Decimal, 2).Value = pSimuladorCta.tasaInteresActiva
                cmd.Parameters.Add("@valorCtaBono", SqlDbType.Decimal, 10, 2).Value = pSimuladorCta.valorCtaBono
                cmd.Parameters.Add("@ctaNeta", SqlDbType.Decimal, 10, 2).Value = pSimuladorCta.ctaNeta
                cmd.Parameters.Add("@idUsuario", SqlDbType.Int).Value = pSimuladorCta.idUsuario
                Try
                    cn.Open()
                    cmd.ExecuteNonQuery()
                    resultado = True
                Catch ex As Exception
                    Throw
                End Try
            End Using
        End Using

        Return resultado
    End Function
    'Public Shared Function Eliminar(ByVal descEmpresa As String, ByVal pSimuladorCta As EsimuladorCta) As Boolean
    '    Dim resultado As Boolean = False

    '    Using cn As New SqlConnection(ConfigurationManager.ConnectionStrings(descEmpresa).ConnectionString)
    '        Using cmd As New SqlCommand("usp_simuladorCtas_del", cn)
    '            cmd.CommandType = CommandType.StoredProcedure
    '            cmd.Parameters.Add("@idProforma ", SqlDbType.Int).Value = pSimuladorCta.idProforma
    '            cmd.Parameters.Add("@idUsuario", SqlDbType.Int).Value = pSimuladorCta.idUsuario
    '            Try
    '                cn.Open()
    '                cmd.ExecuteNonQuery()
    '                resultado = True
    '            Catch ex As Exception
    '                Throw
    '            End Try
    '        End Using
    '    End Using

    '    Return resultado
    'End Function

End Class
